# --------------------------------------------
# HEWLETT·PACKARD 15C Simulator program
# Created with version 2.9.46 Alpha
# --------------------------------------------
#T:Quadratic Equation Solver program for the HP-15C
#D:This program finds the roots of a quadratic equation of the form ax<sup>2</sup> + bx + c = 0.\n\nPush a, b, and c into the Z, Y, and X registers of the stack respectively,  then press the E function key.  The roots of the equation will appear in the X and Y registers.\n\nIf the "C" indicator appears then one or more of the roots are complex numbers.
#L-5:Compute the Roots of the Quadratic Equation
#L18:Used for internal computation
#L19:Used for internal computation
#R0:Used for internal computation
#R1:Used for internal computation
#R2:Used for internal computation
#R3:Used for internal computation
#R10:Used for internal computation
#R11:Used for internal computation
#R12:Used for internal computation
#R13:Used for internal computation
#F8:Set to indicate that the result is a complex number
# --------------------------------------------

   000 {             } 
   001 {    42 21 15 } f LBL E
   002 {    43  6  8 } g F? 8
   003 {    22 48  9 } GTO .9
   004 {       44  3 } STO 3
   005 {          33 } R⬇
   006 {          16 } CHS
   007 {       44  2 } STO 2
   008 {       43 11 } g x²
   009 {          34 } x↔y
   010 {           2 } 2
   011 {          20 } ✕
   012 {       44  1 } STO 1
   013 {    45 20  3 } RCL ✕ 3
   014 {           2 } 2
   015 {          20 } ✕
   016 {          30 } −
   017 {       42 31 } f PSE
   018 {    43 30  2 } g TEST x<0
   019 {    22 48  8 } GTO .8
   020 {          11 } √x
   021 {       44  0 } STO 0
   022 {    45 40  2 } RCL ✛ 2
   023 {    45 10  1 } RCL ÷ 1
   024 {       45  2 } RCL 2
   025 {    45 30  0 } RCL − 0
   026 {    45 10  1 } RCL ÷ 1
   027 {       43 32 } g RTN
   028 { 42 21 48  8 } f LBL .8
   029 {    43  4  8 } g SF 8
   030 {          11 } √x
   031 {       42 30 } f Re ↔ Im
   032 {    45 10  1 } RCL ÷ 1
   033 {    44 48  0 } STO .0
   034 {       45  2 } RCL 2
   035 {    45 10  1 } RCL ÷ 1
   036 {       42 25 } f I
   037 {       42 30 } f Re ↔ Im
   038 {       45  2 } RCL 2
   039 {    45 10  1 } RCL ÷ 1
   040 {    45 48  0 } RCL .0
   041 {          16 } CHS
   042 {       42 25 } f I
   043 {       43 32 } g RTN
   044 { 42 21 48  9 } f LBL .9
   045 {       44  3 } STO 3
   046 {       42 30 } f Re ↔ Im
   047 {    44 48  3 } STO .3
   048 {          33 } R⬇
   049 {          16 } CHS
   050 {       44  2 } STO 2
   051 {       42 30 } f Re ↔ Im
   052 {          16 } CHS
   053 {    44 48  2 } STO .2
   054 {       42 30 } f Re ↔ Im
   055 {          11 } √x
   056 {          34 } x↔y
   057 {           2 } 2
   058 {          20 } ✕
   059 {       44  1 } STO 1
   060 {       42 30 } f Re ↔ Im
   061 {    44 48  1 } STO .1
   062 {       42 30 } f Re ↔ Im
   063 {       45  3 } RCL 3
   064 {    45 48  3 } RCL .3
   065 {       42 25 } f I
   066 {          20 } ✕
   067 {           2 } 2
   068 {          20 } ✕
   069 {          30 } −
   070 {       42 31 } f PSE
   071 {       42 30 } f Re ↔ Im
   072 {       42 31 } f PSE
   073 {       42 30 } f Re ↔ Im
   074 {          11 } √x
   075 {       44  0 } STO 0
   076 {       42 30 } f Re ↔ Im
   077 {    44 48  0 } STO .0
   078 { 45 40 48  2 } RCL ✛ .2
   079 {       42 30 } f Re ↔ Im
   080 {    45 40  2 } RCL ✛ 2
   081 {       45  1 } RCL 1
   082 {    45 48  1 } RCL .1
   083 {       42 25 } f I
   084 {          10 } ÷
   085 {       45  2 } RCL 2
   086 {    45 30  0 } RCL − 0
   087 {    45 48  2 } RCL .2
   088 { 45 30 48  0 } RCL − .0
   089 {       42 25 } f I
   090 {       45  1 } RCL 1
   091 {    45 48  1 } RCL .1
   092 {       42 25 } f I
   093 {          10 } ÷
   094 {       43 32 } g RTN

# --------------------------------------------